home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1995 November / EnigmA AMIGA RUN 02 (1995)(G.R. Edizioni)(IT)[!][issue 1995-11][Skylink CD].iso / earcd / misc / a8085.lha / A8085 V1.0 / SRC / CrazySort.a < prev    next >
Text File  |  1995-07-31  |  718b  |  57 lines
  1. ;Crazy sort
  2.      org $1000
  3. r:   dc.b  13,3,7,12,2,9,1,10,4,45,23,12,54,56,198,43
  4.      dc.b  200,34,11,111,22,54,122,211,245,255,44,250,166
  5. t:   dc.b  5
  6.  
  7. x:   dc.b  r mod 256, r div 256
  8. y:   dc.b  t mod 256, t div 256
  9.  
  10. start:
  11. L71: lxi hl,x+1
  12.      mov d,m
  13.      dcx hl
  14.      mov e,m
  15.      lxi hl,y+1
  16.      mov b,m
  17.      dcx hl
  18.      mov c,m
  19.      mov h,b
  20.      mov l,c
  21.  
  22. b:   mov a,m
  23.      xchg
  24.      cmp m
  25.      xchg
  26.      jnc cont
  27. L73: mov b,m
  28.      xchg
  29.      mov c,m
  30.      mov m,b
  31.      xchg
  32.      mov m,c
  33. cont:
  34.      dcx hl
  35.  
  36. L72: mov a,d
  37.      cmp h
  38.      jc  b
  39.      jnz mx1
  40.      mov a,e
  41.      cmp l
  42.      jc  b
  43. mx1:
  44.  
  45.      inx de
  46.      lxi hl,t
  47.  
  48.      mov a,d
  49.      cmp h
  50.      jc  b
  51.      jnz mx2
  52.      mov a,e
  53.      cmp l
  54.      jc  b
  55. mx2: hlt
  56.  
  57.